home *** CD-ROM | disk | FTP | other *** search
/ Medabots Cardz / Medabots CD Cardz Rokusho.bin / pc / assets / rokusho.dxr / 00214_Script_214 < prev    next >
Text File  |  2001-12-07  |  1KB  |  29 lines
  1. property myFile, useronlinee, resetscore
  2. global gotobrassurl, squam, thescore
  3.  
  4. on mouseUp me
  5.   --fez 7:12:01 amended to make the game work move on when fininshed
  6.   --useronline = (the environment).internetConnected 
  7.   --if useronline = #online then
  8.   if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  9.   myFile = new(xtra "fileio")    -- Create an instance of FileIO
  10.   --  openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access  
  11.   openFile (myFile, squam&"infor.txt",0)--Open the file with R/W access  
  12.   delete(myFile) --deletes the file
  13.   --  createFile (myFile, the moviePath &"info.txt") --creates the file again
  14.   createFile (myFile, squam&"infor.txt") --creates the file again
  15.   --  openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
  16.   openFile(myFile, squam&"infoR.txt",0) --Open the file with R/W access
  17.   --  mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
  18.   resetscore = 0
  19.   put resetscore into member("holdscore")
  20.   mySaveString = member("holdscore").text
  21.   writeString(myFile,mySaveString) --writes text to the file
  22.   
  23.   closeFile(myFile) -- Close the file 
  24.   myFile = 0 -- Dispose of the instance
  25.   goToNetPage gotobrassurl, "_new"  
  26.   --end if
  27. end
  28.  
  29.